home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib18.dsk / ADDITIONAL COLORS.bas next >
BASIC Source File  |  2023-02-26  |  2KB  |  36 lines
  1. 1  REM  **********************
  2. 2  REM  * ADDITIONAL  COLORS *
  3. 3  REM  *  BY MATTHEW STORM  *
  4. 4  REM  * COPYRIGHT (C) 1983 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * LINCOLN, MA. 01773 *
  7. 7  REM  **********************
  8. 10  HOME : VTAB 22: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **": VTAB 24: PRINT "(P)ALETTES OR (L)INES ";: GET G$: IF G$ = "L"  THEN 160
  9. 20  HOME : VTAB 24: INPUT "ENTER COLOR #1, #2, #3 (NO COMMAS) ";A$:A =  VAL( MID$ (A$,1,1)):B =  VAL( MID$ (A$,2,1)):C =  VAL( MID$ (A$,3,1))
  10. 30  IF A >7  OR B >7  OR C >7  THEN  CALL  -211: GOTO 20
  11. 40  INPUT "HOW WIDE ? ";W
  12. 50  INPUT "HOW HIGH ? ";H
  13. 60  IF H >189  THEN 50
  14. 70  IF W >279  THEN 40
  15. 80  HGR : POKE  -16302,0: HCOLOR= A: FOR X = 2 TO H +2: HPLOT 0,X TO W,X: NEXT 
  16. 90  POKE  -16368,0
  17. 100  FOR Y = 2 TO H +2
  18. 110  IF Y/2 =  INT(Y/2)  THEN  HCOLOR= B: FOR X = 1 TO W  STEP 4: HPLOT X,Y: HPLOT X +1,Y: NEXT X: GOTO 140
  19. 120  HCOLOR= C: FOR X = 3 TO W -1  STEP 4: HPLOT X,Y: HPLOT X +1,Y: NEXT X
  20. 130  IF  PEEK( -16384) >127  THEN 150
  21. 140  NEXT Y
  22. 150  POKE  -16301,0: POKE  -16368,0: RUN 
  23. 160  HOME : VTAB 24: INPUT "ENTER COLOR #1, #2 (NO COMMAS) ";A$:A =  VAL( MID$ (A$,1,1)):B =  VAL( MID$ (A$,2,1))
  24. 170  IF A >7  OR B >7  THEN  CALL  -211: GOTO 160
  25. 180  POKE  -16368,0
  26. 190  INPUT "HOW WIDE ? ";W
  27. 200  INPUT "HOW HIGH ? ";H
  28. 210  HGR : POKE  -16302,0: POKE  -16368,0
  29. 220  IF W >279  THEN 190
  30. 230  IF H >189  THEN 200
  31. 240  FOR Y = 2 TO H +2
  32. 250  IF Y/2 =  INT(Y/2)  THEN  HCOLOR= A: HPLOT 0,Y TO W,Y: GOTO 280
  33. 260  HCOLOR= B: HPLOT 0,Y TO W,Y
  34. 270  IF  PEEK( -16384) >127  THEN 150
  35. 280  NEXT 
  36. 290  GOTO 150